home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ftransd_2_1a.lha
/
FTransD_2.1a
/
ARexx-Scripts
/
FTToggleAL.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-07-15
|
848b
|
43 lines
/* $VER: FTToggleAL.rexx 1.1 (Jun 5 1995)
*
* Arexx-Script fⁿr FTrans Arexx-Interface (c) Copyright 1995
* by Rainer Hess
*
* V1.0 - inital release.
* V1.1 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert.
*/
options results
/*
* rexxsupport.library einbinden.
*/
if ~show('l',"rexxsupport.library") then do
call addlib 'rexxsupport.library',0,-30,0
if (result = 0) then do
say "Die rexxsupport.library kann nicht eingebunden werden!"
say "Evtl. ist die rexxsupport.library nicht installiert..."
exit
end
end
/*
* LΣuft unser Ftrans mit ARexx-Port "FTRANS.1"?
*/
ok = show("P","FTRANS.1")
if ok = 0 then do
say 'Entschuldigung, das Programm FTrans mit Arexx-Port FTRANS.1 lΣuft nicht!'
exit 0
end
/*
* Arexx-Port aktivieren.
*/
address 'FTRANS.1'
AUTOLERNEN TOGGLE
say 'Das Autolernen ist' result